home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / biz / swood / FW_AllInOne.lha / Makros / Hilfslinien < prev    next >
Text File  |  1998-01-18  |  5KB  |  180 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. Parse ARG FW
  4. if ~show('L',"rexxreqtools.library") then
  5. if ~addlib('rexxreqtools.library',0,-30,0) then;do
  6. 'ShowMessage 1 1 "Fehler...." "Benötige Libs:rexxreqtools.library" " A B B R U C H ! !" "Okay" "" ""'
  7. exit
  8. end
  9. IF ~show('L','tritonrexx.library') then
  10. IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN;DO
  11. 'ShowMessage 2 1 "Fehler...." "Benötige Libs:tritonrexx.library" "" "Abbruch" "" ""'
  12. exit
  13. END
  14. R='0A'X
  15. If FW='' then;do
  16. Address='FinalW'
  17. Options results
  18. STATUS PORTNAME
  19. FW=result
  20. End
  21. address=FW
  22. SIGNAL ON SYNTAX
  23. If open('Hilfe',"S:FW_Paket.prefs","R") then;do
  24. HilfeVerz=readln('Hilfe')
  25. Call Close('Hilfe')
  26. End
  27. else HilfeVerz=''
  28. mxlist.0=2
  29. mxlist.1='horizontal'
  30. mxlist.2='vertikal'
  31. apptags='TRCA_Name     HLinien',
  32. 'TRCA_LongName "Hilfslinien"',
  33. 'TRCA_Info     "Makro für Finalwriter"',
  34. 'TRCA_Version  "1.1 registered"',
  35. 'TRCA_Release  "3"',
  36. 'TRCA_Date     "09.01.98"',
  37. 'TAG_END'
  38. windowtags=WindowID(1),
  39. WindowPosition('TRWP_CENTERDISPLAY'),
  40. WindowFlags('TRWF_NOSIZEGADGET|TRWF_NOMINTEXTWIDTH|TRWF_ACTIVATESTRGAD'),
  41. PubScreenName('FinalWriterPubScreen'),
  42. WindowTitle('Hilfslinien'),
  43. BeginMenu('Projekt'),
  44. MenuItem('Q_Verlassen...',104),
  45. BeginMenu('?'),
  46. MenuItem('?_Info',101),
  47. MenuItem('H_Hilfe',103),
  48. 'HorizGroupAC',
  49. 'SpaceS',
  50. 'VertGroupAC',
  51. 'SpaceS',
  52. 'HorizGroupEC SpaceS',
  53. TextID('Aus_richtung: ',1),
  54. 'SpaceS',
  55. MXGadget('mxlist',0,1) 'TRAT_Flags TRCY_RIGHTLABELS',
  56. 'SpaceS EndGroup',
  57. 'SpaceS',
  58. 'HorizGroupEC SpaceS',
  59. 'LineArray',
  60. 'BeginLine',
  61. TextID('An_zahl: ',2),
  62. 'SpaceS',
  63. StringGadget('1',2),
  64. 'EndLine',
  65. 'BeginLine',
  66. TextID('Off_set: ',3),
  67. 'SpaceS',
  68. StringGadget('',3),
  69. TextN(' cm'),
  70. 'EndLine',
  71. 'BeginLine',
  72. TextID('Abs_tand: ',4),
  73. 'SpaceS',
  74. StringGadget('',4),
  75. TextN(' cm'),
  76. 'EndLine',
  77. 'EndArray',
  78. 'SpaceS EndGroup',
  79. 'SpaceS',
  80. 'HorizgroupEC',
  81. Button('_Anwenden',7),
  82. 'SpaceS',
  83. Button('Ab_bruch',8),
  84. 'EndGroup',
  85. 'SpaceS',
  86. 'EndGroup',
  87. 'SpaceS',
  88. 'EndGroup',
  89. 'EndProject'
  90. app=TR_CREATEAPP('TRCA_Name MEinfügen')
  91. richt=1
  92. IF app ~='00000000'x THEN;DO
  93. window1=TR_OPENPROJECT(app,windowtags)
  94. IF window1 ~='00000000'x THEN;DO
  95. ende=0
  96. DO WHILE ende ~=1
  97. CALL TR_WAIT(app,'')
  98. DO WHILE TR_HANDLEMSG(app,'event')
  99. IF event.trm_class='TRMS_NEWVALUE' THEN;DO
  100. SELECT
  101. WHEN event.trm_id=1 THEN richt=event.trm_data+1
  102. OTHERWISE
  103. NOP
  104. END
  105. END
  106. IF event.trm_class='TRMS_ACTION' THEN;DO
  107. SELECT
  108. WHEN event.trm_id=7 THEN Call program
  109. WHEN event.trm_id=8 THEN ende=1
  110. WHEN event.trm_id=101 THEN Call rtezrequest("Aus dem Makro-Paket:"||R||R||"Hilfslinien V1.1 für FW"||R||"© 1998 Heiko Schröder","Danke für Ihre Registrierung.","Info","rt_pubscrname=FinalWriterPubScreen")
  111. WHEN event.trm_id=103 THEN address command "run Multiview PUBSCREEN=FinalWriterPubScreen "||d2c(34)||HilfeVerz||"Hilfslinien.guide"||d2c(34)
  112. WHEN event.trm_id=104 THEN ende=1
  113. OTHERWISE NOP
  114. END
  115. END
  116. IF event.trm_class='TRMS_CLOSEWINDOW' THEN ende=1
  117. END
  118. END
  119. CALL TR_CLOSEPROJECT(window1)
  120. END
  121. CALL TR_DELETEAPP(app)
  122. END
  123. ELSE
  124. CALL quit('Kann das Fenster nicht öffnen',10)
  125. Exit
  126. program:
  127. GetDocItemPrefs Decimal
  128. Punkt=Result
  129. If Punkt="Comma" then DocItemPrefs Decimal Period
  130. Anzahl=TR_GETATTRIBUTE(window1,2,'TROB_String')
  131. If Datatype(Anzahl,'W')=0 then;do
  132. x=rtezrequest("Bei ANZAHL bitte ganzzahligen Wert","_Achso","Eingabe-Fehler","rt_pubscrname=FinalWriterPubScreen")
  133. Call TR_SendMessage(window1,2,'TROM_ACTIVATE',0)
  134. return
  135. end
  136. Offset=TR_GETATTRIBUTE(window1,3,'TROB_String')
  137. If Datatype(Offset,'N')=0 then;do
  138. x=rtezrequest("Bei OFFSET bitte numerische Angabe mit (.)","_Achso","Eingabe-Fehler","rt_pubscrname=FinalWriterPubScreen")
  139. Call TR_SendMessage(window1,3,'TROM_ACTIVATE',0)
  140. return
  141. end
  142. Weite=TR_GETATTRIBUTE(window1,4,'TROB_String')
  143. If Weite='' then Weite=0
  144. If Datatype(Weite,'N')=0 then;do
  145. x=rtezrequest("Bei WEITE bitte numerische Angabe mit (.)","_Achso","Eingabe-Fehler","rt_pubscrname=FinalWriterPubScreen")
  146. Call TR_SendMessage(window1,4,'TROM_ACTIVATE',0)
  147. return
  148. end
  149. address(FW)
  150. GetPageSetup Width Height
  151. Parse Var result DokBreite DokHoehe
  152. do i=0 to Anzahl-1
  153. Stelle=Offset+i*Weite
  154. if richt=1 then
  155. If Stelle<=DokHoehe then SetSnapToGuide HORIZONTAL Stelle
  156. if richt=2 then
  157. If Stelle<=DokBreite then SetSnapToGuide Vertical Stelle
  158. End
  159. redraw
  160. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  161. return
  162. SYNTAX:
  163. CALL quit('Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||R||SOURCELINE(sigl)||R||'Bitte informieren Sie den Autor...',20)
  164. quit:
  165. PARSE ARG message,rcode
  166. IF app ~='00000000'x THEN;DO
  167. IF message ~='' THEN
  168. ret=rtezrequest(message,"_Okay","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  169. CALL TR_DELETEAPP(app)
  170. END
  171. ELSE;DO
  172. IF message ~='' THEN;DO
  173. SAY message
  174. SAY
  175. OPTIONS PROMPT 'Bitte <RETURN> drücken'
  176. PULL taste
  177. END
  178. END
  179. address command "flushtrx all"
  180. EXIT(rcode)